C  THIS DOES TRANSLATION OF INPUT AND WRITES BINARY FILE FOR PASS 3.
	COMMON /DEVS/ID1,ID21,JTYPE,ID23,ID20
      COMMON K,I(512) /P/P(50) /FINOUT/PEAK,RPEAK,NBUF
	1 /IFIRST/IFIRST,IDT 
	EQUIVALENCE (P2,P(2))
	DATA TRNS/'TRNS'/,BLA/' '/
C****************CHECK NEAR HERE FOR NEEDED CHANGES **************
	CALL DISKO(ID21,TRNS,2)
C                         2=UNFORMATTED OUTPUT FILE.
C CREATE OUTPUT FILE, DEFAULT NAME=FOR21 OR SOMETHING.
	IFIRST=-1
	IDT=1
C ABOVE 2 ARE IN TRANS. ROUTINES.
1	CALL TRANS(IDT)
	IF(P(1).EQ.1)WRITE(JTYPE,5),P2
2	WRITE(ID21)K,(P(J),J=1,K)
	IF(P(1).EQ.6.)CALL EXIT   
C CLOSE FILE AFTER A 'FINISH' OR A COLON (=END OF INPUT) HAS BEEN READ.
	GO TO 1
5	FORMAT('+',F9.2,$)
	END
	SUBROUTINE PLAY
C THIS IS A DUMMY
	END